home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Graphics / SciPlot / SciPlotDemos / Macros / MacroDemo_1.MP next >
Encoding:
Text File  |  1993-08-30  |  1.2 KB  |  62 lines
  1. SciPlot.7.MACRO - 31.08.93 11:53 - v3.6 (c)M.Wesemann'91/92/93
  2. ### MACRO NUMBER
  3. 0
  4. ### MACRO0
  5. 1022
  6.  
  7.              %%%                 (c) M.Wesemann '93 %%%
  8.              %%% This is a macro for automatic peak %%% 
  9.              %%% positon assigning.                 %%%
  10.              %%% Usage: Select a positon (x) with   %%%
  11.              %%% the mousemode 'measure'and click   %%%
  12.              %%% 'Execute'                          %%%
  13.  
  14. setstring[font;$scalefont]             %%% the font %%%
  15. set[size;scalefontsize]           %%% the font size %%%
  16. setstring[text;<xpos:3>]               %%% the text %%%
  17. set[len;25]                        %%% arrow length %%%
  18. set[wid;1]                             %%% arrow width %%%
  19.  
  20. set[yp;ypoint(findy(cb,xpos),0)]
  21. set[xp;xpoint(xpos,0)]
  22. settextwidth[tw;$text;$font;size]
  23. settextheight[th;$font;size]
  24. if[yp+len+2+tw;<;ypoint(ymax1,0)]
  25.     line[0;xp;yp+len;xp;yp+3;3;0;1;wid;0;0;0;1;0]
  26.     text[$text;$font;size;0;xp+th/2;yp+len+2;
  27.       0;90;0;0;0;1;0]
  28. else[]
  29.     line[0;xp;yp-len;xp;yp-3;3;0;1;wid;0;0;0;1;0]
  30.     text[$text;$font;size;0;xp+th/2;yp-len-2-tw;
  31.       0;90;0;0;0;1;0]
  32. endif[]
  33. plot[]
  34.  
  35. ### MACRO1
  36. 0
  37.  
  38. ### MACRO2
  39. 0
  40.  
  41. ### MACRO3
  42. 0
  43.  
  44. ### MACRO4
  45. 0
  46.  
  47. ### MACRO5
  48. 0
  49.  
  50. ### MACRO6
  51. 0
  52.  
  53. ### MACRO7
  54. 0
  55.  
  56. ### MACRO8
  57. 0
  58.  
  59. ### MACRO9
  60. 0
  61.  
  62.